function imlist = showImageList

% image files are either .fig or .m
        imlistm = dir('*tif');
        imlistfig = dir('*fig');
        imlist = [imlistm;imlistfig];
                
        figlist = figure;

        for k = 1:length(imlist)
            try
                subplot(3,3,k)
                figure(figlist)
                imagesc(imread(imlist(k).name))
            catch
                hfig = openfig(imlist(k).name);
                figure(figlist)
                subplot(3,3,k)
                imagesc(get(findobj(hfig,'type','image'),'CData'))
            end
                title([num2str(k),': ',imlist(k).name])
        end
        colormap('gray')
        set(gcf,'Position',[1 1 1200 800])